TITLE: 

TYPE: 
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TEMPORARY STORAGE: 

TIME: 



DESCRIPTION: 



UNIVERSITY OF ILLINOIS 
DIGITAL COMPUTER 



AUXILIARY 

LIBRARY ROUTINE P 21 - 268 



Data Plotter Output Converter II 

Complete Program 

156 in memory location 100-2 ^5 

0, 1 

T = .50 + .30(n-l) 



m 



number of Y's on each line (i.e., between successive 



cr-lf's). The maximum time, T , for each line is .50 
seconds if there <s only one Y per line, with an additional 
OO seconds for each additional Y on each line. This 
includes output time. 

This program is intended to convert a data tape from the 
Illiac into a tape suitable for the data plotter. Only 
the Y's are read from the tape. (if the programmer wishes 
to have X read also, Data Plotter Output Converter I 
should be used). The data must be arranged in columns 
with the Y o -column first and so on to Y ; thus each 
line must have all the Y's corresponding to a given X. 
The X coordinate will begin with zero and the program 
will add the integer q for each line of Y's. A cr-lf 
on the tape is interpreted as signifying that X should 
be advanced and the next value read will be a new Y . 
For each value of X all values of Y associated with 
that X will be read from the tape and converted into 
instructions for the data plotter. The program will 
read and punch any number of Y's for any X. However, 
if there are more than 6Y's for any X, the preset 
parameter in location 6 should be set to so that the 
symbol select will not be punched, since there are 
only six symbols on the wheel of the plotter. The 
integer 1 in location 6 indicates that the symbol 
select should be punched. Each number read may have 
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PRESET PARAMETERS: 



METHOD: 



a maximum of 11 decimal digits with the sign and 
decimal point optional. If there are more than 11 

decimal digits, the program will stop on an LF order 

at location 171 (OKSg). 

The integers p, q, r, and s are stored as present 
parameters in locations 3> ^9 5, and 6 respectively; 
p is used to scale all the Y's; each Y is read from 
the tape, stored as an integer, and divided by ICp to 
convert it to a fraction, q is the integer by which 
X is to be increased. The integer r in location 5 
should be 1 or 0; when r = 1 all numbers read that have 
more than p places will not be plotted. When r 0, 
any Y read that has more than p places will cause a 
division hang-up at location 157 (09J ). The integer 
s in location 6 should be 1 or 0; when s - 0, no 
symbols will be punched; when s = 1, the symbol select 
will be punched and advanced for each Y. 
The following parameter tape is required: 
003K 



00 F 
OOpF 
00 F 
OOqF 
00 F 

OOrF 



p is the maximum number of places for all Y's 



q is the integer by which X is to be increased 

r .- causes a division hang up when Y has more 
than p places .. 

r = 1 program by-passes numbers with more than 
p places . 



00 F s = symbol select is omitted 
OOsF s = 1 symbol select is punched 
2^100N to start program 

(1) Read in Data Plotter Output Converter II with a 
clear start. 

(2) Read in parameter tape by moving the black switch 
to START. 

(3) Read in data tape by moving the black switch to START. 
Fifteen consecutive fifth holes on the data tape 
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stop the program. It can be started again by moving 
the black switch to START. If the parameters are not 
changed, another data tape may be read in with a 
black switch start. Also, the program stops when X 
reaches 9999- It can be started again by moving the 
black switch to START. A new parameter tape may be 
read in after a data tape by moving the white switch 
through EXECUTE to FETCH and then back to RUN. 
EXAMPLES: Data tape print-out from Illiac, where p 10, q 5, 

r = 0, s = 1 



Y o h 

+.2349684013 -.6704009321 
- .9221183314 +.1894149216 


Y 
x 2 

+.3219l6l400 

-.5414845600 


Tape for data plotter: 




J+0000 




LOF + 2350N 

L1F-6704N 

I2F+3219N 




J+0005 
L0F-9221N 
L1F+1894N 
I2F-5415N 





Data tape print-out from Illiac, where p = 10, q = 8, 
r = 1, s = 

Y Y Y Y 

o L l x 2 *3 

12.258525865 74.963287258 85.852585526 96.963654526 
2.85265456 85.85257852 41.96358525 74.52541256 

Tape for plotter: 

J40000 

J+0008 
F-0235N 
F+8585N 
F-4196N 

F-7453N 



DATE September 9, 1959 



ns 



SUBMITTED BY Charlene Snrankftl 
APPROVED BY_^ ^ J^Jjj , >"* 



LOCATION 


ORDER 


notes pAffi'T F2T~ " 






00 100K 









L3 6F 


-'N|6 -> A 






■ 32 (98) 


A > jump to r.h. (98) 


i 




L5 (27) 


Arrange to punch 






1*0 (23) 


symbol select 


2 




L5 (28) 

1+0 (24) 




3 




L5 (29) 
4o (25) 








L5 (32) 


■ 






1+0 (26) 




5 


(98) 


26 (100 ) 


' 






L5 (12) 


do not punch symbol select 


6 




1+0 (23) 






L5 (35) 


■ 


7 


i 


1+0 (2i+) 








L5 (36) 




8 




i+o (25) 








L5 (37) 


: 


9 




1+0 (26) 
26 (100) 


! 


10 


(100) 


L3 5F 


-|n|5 -»a 1 






32 (102) 


A > jump to rh (102) j 


11 




L5 (25) 


if neg. by-pass numbers f 






1+0 (11+3) 


with more than p places 1 

* 


12 


(102) 


22 (103) 


1 
1 






L5 (26) 


If loc 5=0, arrange for f 


13 


(103) 


1+0 (11+3) 


div hang up when 1 






1+1 (li+) 


Y has more than p places t 


11+ 




LI (31+) 


-N(3l+) ->A j 






Ll+ 3F 


add p ; 


15 




32 (LF) 


. If p > 12, stop at LF j 






L5 3F 


p -> A 1 

t 


16 




1+0 (21) 
L5 (10) 


store in (21 ) j 

-39 f 
: 10 x 2 Jy -> A I 


17 


(107) | 


1+0 (18) 


store in (l8) j 


L_ 


i 


L5 (21) 
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18 


LO (17) 
kc (21) 


count 




19 


LI (21) 








32 (112) 


A > 0, 10^ complete 




20 


50 (18) 


copy N (18 ) -» Q 






75 (10) 


Multi.by 10 




21 


S5 F 








lU) (18) 


store lO 5 in (l8) 




22 (112 ) 


22 (107) 








92 575F 


15 double delays 




23 (H3) 


92 63F 


15 single delays 






ki (,i) 


clear A and (19) 




2k 


92 135F 


2 crlf 






L5 (2k) 


arrange to print symbols 




25 


ko (ikk) 


and F 






92 83^F 


Print J 




26 


50 (Ik) 


copy X into Q, 




- 


00 13F 


shift left 13 times 




27 


75 (13) 


multiply by .0001 






00 2bF 


shift left 26 times 




28 


36 (119) 


A > 






26 (161) 


If X>9999 jump to stop 




29 (119) 


50 to 1 
50 (119) 


Print X 




30 


26 (Pl6) 








92 131F 


crlf 




31 


L5 ^F 


advance X 






Lk (1U) 






32 


1+0 (lM 








50 (12) 


: copy 




33 (123) . 


91>F 


5th hole read 






32 (128) ! 


I If A > 0, not 5th hole 




3^ 


LO (20) ! 


subtract dec. pt. 




- 


1+0 F 


\ store in loc 




35 


L3 F \ 


- |N|o -> A 






36 (135) J 

1 .. ■■ 


A > jump to lh (135) 





LOCATION 



36 




F5 (19) 
40 (19) 


37 




LO (16) 
36 (161) 


38 


(128) 


26 (123) 
4o (31) 


39 
40 


(129) 


41 (19) 
4l IF 

L5 (31) 
LO (11) 


4i 




36 (134) 

L4 (17) 


42 




36 (135) 
L5 (31) 


43 




40 IF 
26 (135) 


44 


(134) 


L5 (15) 
4o (22) 


45 


(135) 


91 4f 
40 (31) 


46 




36 (139) 
LO (20) 


47 




40 F 
L3 F 


48 




36 (135) 
26 (142) 


49 


(139) 


50 IF 

75 (10) 


50 




S5 F 
I* (3D 


51 


■ 


40 IF 
26 (135) 


52 


(1*2)" 


L5 IF 
LO (18) 


53 


(i4) 


22 (143) 
92 962F 



ORDER 
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TS5FT 



T2T 



count 5th holes 



If there are 15 cons 5th holes 

stop 
store number in (3l) 
clear (19) 
clear IF 
N(3l) -»A 
subr. neg. sign 
A > 0, it is neg. sign 
add 1 

A > 0^ it is pos . sign 
N(31) -»A 
store in loc 1 

neg. sign 

goes to loc (22) 

5th hole read 

store in (31) 

A > 0, it is not a 5th hole 

subtr. dec. pt. 

store in 

-|N|o -> A 

A > 0, it is dec. pt. 

If neg. it is some other 5th hol^ 

r:(i)-q 

multiply by 10 
Q -> A 

A + N(31) -» A 
store in loc 1 

number read -* A 
subtract lCr 
waste 
Pririt L 



LOCATION 



ORDER 



MMMMIHWMppinawnfMqnnH 



L 



54 (l44) 

55 

% 

57 

58 (148) 

59 (1^9) 
60 

61 

62 (151) 

63 (152) 
64 

65 (154) 
66 

67 
68 

69 (158) 
70 

71 (LF) 



92 2F 
92 898F 

50 (12) 
L5 IF 
66 (18) 
L5 (22) 
52 (148) 

51 F 

J 26 (149) 
S5 F 
50 4f 
50 (149) 
26 (Pi6) 
92 770F 
92 131F 
26 (151) 
4i (22) 

L5 (31) 
26 (154) 

91 4f 
40 (31) 
32 (158) 
L0 (30) 
4o F 
L3 F 
32 (113) 
F5 (19) 
40 (19) 
L0 (16) 
36 (161) 
22 (152) , 

L5 (23) 
L4 (144) 
4o (144) 
22 (129) 
IF F 




Print 

Print F 

copy -> Q 

N(1)-»Q 

divide by 10^ 

sign -» A 

A > 0, it is positive 

- Q -> A 

Q ->A 

Print Y 



Print N 

crlf 

waste 

clear sign location 

N(31) ->A 

5th hole read 

store in (31) 

A > 0, not a 5th hole 

subtr. crlf 

store in 

-|N| ->A 

A > 0, it is crlf -> print nev X 

count 5th holes 



A > 0, 15 cons 5th holes stop program 
increase symbol punch 









! 

LOCATION 


ORDER 
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72 (161) 


2k 100F 






26 999F 




73 (10) 


00 F 


Constants 




00 10F 




7^ (11) 


00 F 
00 11F 




75 (12) 


00 F 
00 F 




76 (13) 


00 F 






00 000 1 0000 0000 J 


77 (1*0 


00 F 






00 F 




78 (15) 


80 F 
00 F 




79 '16) 


00 F 






00 15F 




80 (17) 


00 F 
00 IF 




81 (18) 


00 F 






00 10F 




82 (19) 


00 F 


' 




00 F 


5tr ho.e counter 


83 (20) 


c;0- F 
00 10F 




8k (21) 


00 F 
00 F 




85 (22) 


00 F 

! 

00 F 




86 (25) 


00 6kF 
00 F 




87 (2k) 


J2 2F 
92 898F 




88 (2-5) 


56 (151) 
92 962F 




89 (26) 


22 (lk3) 




f 


92 9b2F 





LOCATION 


ORDER 


90 


(27) 


00 6kF 
00 F 


91 


(28) 


92 2F 

92 898F 


92 


(29) | 


36 (151) 

92 962F 


93 


(30) 


80 F 

00 2F 


9k 


f-z- * 

13-W 


00 F 
00 F 


95 


(32) 


22 (iky) 
92 962F 


96 


(3M 


00 F 
00 12F 


97 


(35) 


22 (lkk) 
92 898F 


98 


(36) 


36 (151) 
22 (lkk) 


99 


(37) 


22 (lkk) 
?2 (lkk) 
(Pl6) OOK 
2k 999N 



NOTES 
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